object AddCardRangeForm: TAddCardRangeForm
  Left = 237
  Top = 125
  Width = 905
  Height = 480
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #21253#32564#21442#25968#35774#32622
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object wwDBNavigator1: TwwDBNavigator
    Left = 0
    Top = 0
    Width = 225
    Height = 25
    DataSource = srcCardRange
    ShowHint = True
    RepeatInterval.InitialDelay = 500
    RepeatInterval.Interval = 100
    Align = alTop
    ParentShowHint = False
    object wwDBNavigator1First: TwwNavButton
      Left = 0
      Top = 0
      Width = 25
      Height = 25
      Hint = #39318#35760#24405
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1First'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 0
      Style = nbsFirst
    end
    object wwDBNavigator1Prior: TwwNavButton
      Left = 25
      Top = 0
      Width = 25
      Height = 25
      Hint = #19978#19968#26465
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Prior'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 1
      Style = nbsPrior
    end
    object wwDBNavigator1Next: TwwNavButton
      Left = 50
      Top = 0
      Width = 25
      Height = 25
      Hint = #19979#19968#26465
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Next'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 2
      Style = nbsNext
    end
    object wwDBNavigator1Last: TwwNavButton
      Left = 75
      Top = 0
      Width = 25
      Height = 25
      Hint = #26411#35760#24405
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Last'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 3
      Style = nbsLast
    end
    object wwDBNavigator1Insert: TwwNavButton
      Left = 100
      Top = 0
      Width = 25
      Height = 25
      Hint = #26032#22686
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Insert'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 4
      Style = nbsInsert
    end
    object wwDBNavigator1Delete: TwwNavButton
      Left = 125
      Top = 0
      Width = 25
      Height = 25
      Hint = #21024#38500
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Delete'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 5
      Style = nbsDelete
    end
    object wwDBNavigator1Post: TwwNavButton
      Left = 150
      Top = 0
      Width = 25
      Height = 25
      Hint = #25552#20132
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Post'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 6
      Style = nbsPost
    end
    object wwDBNavigator1Refresh: TwwNavButton
      Left = 175
      Top = 0
      Width = 25
      Height = 25
      Hint = #21047#26032
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Refresh'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 7
      Style = nbsRefresh
    end
    object wwDBNavigator1Cancel: TwwNavButton
      Left = 200
      Top = 0
      Width = 25
      Height = 25
      Hint = #21462#28040
      ImageIndex = -1
      NumGlyphs = 2
      Spacing = 4
      Transparent = False
      Caption = 'wwDBNavigator1Cancel'
      Enabled = False
      DisabledTextColors.ShadeColor = clGray
      DisabledTextColors.HighlightColor = clBtnHighlight
      Index = 8
      Style = nbsCancel
    end
  end
  object cxGrid2: TcxGrid
    Left = 0
    Top = 25
    Width = 897
    Height = 208
    Align = alTop
    TabOrder = 1
    object tvSpeCard: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = False
      NavigatorButtons.PriorPage.Visible = False
      NavigatorButtons.Prior.Visible = False
      NavigatorButtons.Next.Visible = False
      NavigatorButtons.NextPage.Visible = False
      NavigatorButtons.Last.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataSource = srcSpeCard
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <
        item
          Kind = skCount
          FieldName = 'CARDID'
          DisplayText = #24635#25968#65306
        end>
      DataController.Summary.SummaryGroups = <
        item
          Links = <
            item
              Column = tvSpeCardAccountName
            end>
          SummaryItems = <
            item
              Kind = skCount
              Position = spFooter
              Column = tvSpeCardCARDNO
            end>
        end
        item
          Links = <
            item
              Column = tvSpeCardTypeName
            end>
          SummaryItems = <
            item
              Kind = skCount
              Position = spFooter
              Column = tvSpeCardCARDNO
            end>
        end>
      OptionsBehavior.NavigatorHints = True
      OptionsData.CancelOnExit = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.GroupFooters = gfVisibleWhenExpanded
      object tvSpeCardAccountNo: TcxGridDBColumn
        Caption = #36134#21495
        DataBinding.FieldName = 'AccountNo'
        Options.Editing = False
      end
      object tvSpeCardAccountName: TcxGridDBColumn
        Caption = #21517#31216
        DataBinding.FieldName = 'AccountName'
        GroupIndex = 1
        Options.Editing = False
      end
      object tvSpeCardCARDNO: TcxGridDBColumn
        Caption = #21345#21495
        DataBinding.FieldName = 'CARDNO'
        Options.Editing = False
      end
      object tvSpeCardVehPlate: TcxGridDBColumn
        Caption = #36710#29260
        DataBinding.FieldName = 'VehPlate'
        Options.Editing = False
      end
      object tvSpeCardVehClass: TcxGridDBColumn
        Caption = #36710#22411
        DataBinding.FieldName = 'VehClass'
        Options.Editing = False
        Width = 38
      end
      object tvSpeCardTypeName: TcxGridDBColumn
        Caption = #21345#22411
        DataBinding.FieldName = 'TypeName'
        GroupIndex = 0
        Options.Editing = False
      end
    end
    object glSpeCard: TcxGridLevel
      GridView = tvSpeCard
    end
  end
  object cxGrid1: TcxGrid
    Left = 0
    Top = 233
    Width = 897
    Height = 220
    Align = alClient
    TabOrder = 2
    object tvCard: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      DataController.DataSource = srcCardRange
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsView.GroupByBox = False
      OptionsView.GroupFooters = gfVisibleWhenExpanded
      object tvCardCARDID: TcxGridDBColumn
        Caption = #21345#21495
        DataBinding.FieldName = 'CARDID'
      end
      object tvCardENSTATION: TcxGridDBColumn
        Caption = #36215#22987#31449
        DataBinding.FieldName = 'ENSTATION'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'STATIONID'
        Properties.ListColumns = <
          item
            FieldName = 'STATIONNAME'
          end>
        Properties.ListSource = srcStation
      end
      object tvCardEXSTATION: TcxGridDBColumn
        Caption = #32456#27490#31449
        DataBinding.FieldName = 'EXSTATION'
        PropertiesClassName = 'TcxLookupComboBoxProperties'
        Properties.KeyFieldNames = 'STATIONID'
        Properties.ListColumns = <
          item
            FieldName = 'STATIONNAME'
          end>
        Properties.ListSource = srcStation
      end
      object tvCardBegDT: TcxGridDBColumn
        Caption = #36215#22987#26102#38388
        DataBinding.FieldName = 'BegDT'
      end
      object tvCardEndDT: TcxGridDBColumn
        Caption = #25130#27490#26102#38388
        DataBinding.FieldName = 'EndDT'
        Width = 197
      end
    end
    object glCard: TcxGridLevel
      GridView = tvCard
    end
  end
  object tblCardRange: TMSTable
    TableName = 'TS_CARDRANGE'
    MasterFields = 'CARDNO'
    DetailFields = 'CARDID'
    MasterSource = srcSpeCard
    Connection = MainForm.connSQL
    BeforePost = tblCardRangeBeforePost
    Left = 576
    Top = 88
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CARDNO'
        ParamType = ptInput
        Value = 50316
      end>
  end
  object srcCardRange: TDataSource
    DataSet = tblCardRange
    Left = 224
    Top = 96
  end
  object tblStation: TMSTable
    TableName = 'TS_STATION'
    Connection = MainForm.connSQL
    Left = 664
  end
  object srcStation: TDataSource
    DataSet = tblStation
    Left = 584
    Top = 65528
  end
  object srcSpeCard: TDataSource
    DataSet = qrySpecard
    Left = 232
    Top = 184
  end
  object qrySpecard: TMSQuery
    Connection = MainForm.connSQL
    SQL.Strings = (
      'select s.*,t.TypeName,AccountName from TS_SpeCard s,'
      'TS_Account a, TS_CardType t'
      'where s.CardType=t.Cardtype'
      'and s.AccountNo=a.AccountNo')
    Left = 360
    Top = 184
  end
end
